home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Serial.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  2KB  |  79 lines
  1. Unit Serial;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tIOTArray = Record
  8.           TermArray0: LongInt;
  9.           TermArray1: LongInt;
  10.         End;
  11.  
  12.   tIOExtSer = Record
  13.           IOSer: tIOStdReq;
  14.           io_CtlChar: LongInt;
  15.           io_RBufLen: LongInt;
  16.           io_ExtFlags: LongInt;
  17.           io_Baud: LongInt;
  18.           io_BrkTime: LongInt;
  19.           io_TermArray: tIOTArray;
  20.           io_ReadLen: ShortInt;
  21.           io_WriteLen: ShortInt;
  22.           io_StopBits: ShortInt;
  23.           io_SerFlags: ShortInt;
  24.           io_Status: Integer;
  25.         End;
  26.  
  27.  
  28.  
  29. Const
  30.   SERF_EOFMODE = $40;
  31.   SerErr_NoDSR = $D;
  32.   IO_STATB_XOFFREAD = $C;
  33.   SerErr_ParityErr = $9;
  34.   IO_STATF_XOFFREAD = $1000;
  35.   SDCMD_BREAK = $A;
  36.   SerErr_BufOverflow = $C;
  37.   IO_STATB_XOFFWRITE = $B;
  38.   IO_STATF_XOFFWRITE = $800;
  39.   SERB_SHARED = $5;
  40.   SERF_SHARED = $20;
  41.   SERIALNAME = 'serial.device';
  42.   SERB_RAD_BOOGIE = $4;
  43.   SDCMD_SETPARAMS = $B;
  44.   SERF_RAD_BOOGIE = $10;
  45.   SERB_PARTY_ON = $0;
  46.   SER_DEFAULT_CTLCHAR = $11130000;
  47.   SERB_XDISABLED = $7;
  48.   SERF_PARTY_ON = $1;
  49.   SERF_XDISABLED = $80;
  50.   IO_STATB_READBREAK = $A;
  51.   SERB_7WIRE = $2;
  52.   SDCMD_QUERY = $9;
  53.   IO_STATF_READBREAK = $400;
  54.   SERF_7WIRE = $4;
  55.   SerErr_DetectedBreak = $F;
  56.   SerErr_BufErr = $4;
  57.   SERB_QUEUEDBRK = $3;
  58.   SerErr_LineErr = $6;
  59.   IO_STATB_WROTEBREAK = $9;
  60.   SERF_QUEUEDBRK = $8;
  61.   IO_STATF_WROTEBREAK = $200;
  62.   IO_STATB_OVERRUN = $8;
  63.   SEXTB_MSPON = $1;
  64.   SerErr_InvParam = $5;
  65.   IO_STATF_OVERRUN = $100;
  66.   SEXTB_MARK = $0;
  67.   SEXTF_MSPON = $2;
  68.   SEXTF_MARK = $1;
  69.   SerErr_DevBusy = $1;
  70.   SerErr_TimerErr = $B;
  71.   SERB_PARTY_ODD = $1;
  72.   SERB_EOFMODE = $6;
  73.   SERF_PARTY_ODD = $2;
  74.  
  75.  
  76.  
  77.  
  78. End.
  79.